home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1999 February: Tool Chest / Dev.CD Feb 99 TC.toast / Tool Chest / Development Kits / MPW etc / Miscellaneous / WindowBar / WindowBarCmds / ModifyReadOnlyActive < prev    next >
Encoding:
Text File  |  1995-10-11  |  207 b   |  11 lines  |  [TEXT/MPS ]
  1. Begin
  2.     Set Exit 0
  3.     Set ActiveName "{Active}"
  4.     If "{LockUncheckedOutFiles}"
  5.         SetFile "{ActiveName}" -a l
  6.         Close "{ActiveName}"
  7.         Open "{ActiveName}"
  8.     End
  9.     ModifyReadOnly "{ActiveName}"
  10. End ∑∑ "{WorkSheet}"
  11.